home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / pc / start.exe / start.dxr / 00016_titelResponseSpotjes.ls < prev    next >
Encoding:
Text File  |  2001-04-17  |  1.3 KB  |  47 lines
  1. on mouseDown me
  2.   global gLink, gTitel
  3.   if gTitel <> me then
  4.     set the castLibNum of sprite the spriteNum of gTitel to castLib("butN").number
  5.     set the castLibNum of sprite the spriteNum of me to castLib("butRO").number
  6.     memNum = gLink & string(me.spriteNum - 9)
  7.     set the member of sprite 3 to member(memNum, "shots")
  8.     memNum = gLink & string(me.spriteNum - 9)
  9.     set the member of sprite 4 to member(memNum, "caption")
  10.     memNum = gLink & string(me.spriteNum - 9)
  11.     set the member of sprite 5 to member(memNum, "specs")
  12.     memNum = gLink & string(me.spriteNum - 9)
  13.     set the member of sprite 6 to member(memNum, "URL")
  14.     updateStage()
  15.     gTitel = me
  16.   end if
  17. end
  18.  
  19. on mouseUp me
  20.   global gLink, gTitel, gExes, gTitelNr
  21.   gTitelNr = gTitel.spriteNum - 9
  22.   theProp = gLink & string(gTitel.spriteNum - 9)
  23.   theExec = getProp(gExes, theProp)
  24.   puppetSound(1, theExec)
  25. end
  26.  
  27. on mouseWithin me
  28.   global gTitel
  29.   if gTitel <> me then
  30.     customCursor = [member("finger"), member("fingerMatte")]
  31.     set the cursor of sprite the spriteNum of me to customCursor
  32.     updateStage()
  33.   else
  34.     set the cursor of sprite the spriteNum of me to 0
  35.   end if
  36.   updateStage()
  37. end
  38.  
  39. on mouseLeave me
  40.   set the cursor of sprite the spriteNum of me to 0
  41.   updateStage()
  42. end
  43.  
  44. on endSprite me
  45.   puppetSound(0)
  46. end
  47.